home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / rpmchk.atr < prev    next >
Text File  |  1995-04-22  |  2KB  |  49 lines
  1. 0 REM FROM GREKELCOM -- 405-722-5056 
  2. 30 REM DISK DRIVE TEST SPEED CHECK       BASED ON A CONCEPT FROM THE MAY 82    COMPUTE & REVISED BY A.C.A.O.C. 
  3. 40 REM RPM SPEEDS UNDER 285 ARE TOO      SLOW AND NEED ADJUSTMENT. SPEEDS      285- 290 ARE OK. LEAVE AS THEY ARE. 
  4. 50 REM SPEEDS OVER 290 ARE TOO FAST. 
  5. 51 REM THIS TEST PROGRAM ASSUMES THAT    288 RPM IS PERFECT, ALTHOUGH THERE    IS AN ACCEPTABLE RANGE THAT WORKS. 
  6. 52 REM UNLIKE MY FIRST DISKRPM PROGRAM   DONATION, THIS ONE WORKS WITH THE     NEW FAST FORMATTING DRIVE CHIPS. 
  7. 53 REM LET THE DISK RUN UNTIL YOU GET    SEVERAL READINGS TO GIVE YOU AN       IDEA WHAT YOUR DRIVE DOES WHEN ON. 
  8. 60 REM REVISED & DONATED BY FRED WARD 
  9. 100 POKE 82,10:POKE 752,1 
  10. 110 ? " 
  11. " 
  12. 120 POKE 709,0:POKE 710,12:POKE 712,12 
  13. 130 FOR I=0 TO 72 
  14. 140 READ A:POKE 1536+I,A:NEXT I 
  15. 160 ? "  DISK SPEED READER" 
  16. 170 ? :? :? "  PUSH SYSTEM RESET" 
  17. 190 ? :? "  TO TERMINATE TEST":? :? :?  
  18. 210 ? "TESTING WHICH DRIVE NUMBER"; 
  19. 220 OPEN #1,4,0,"K:":GET #1,K:CLOSE #1 
  20. 230 D=K-48:IF D<1 OR D>4 THEN 220 
  21. 240 ? D:?  
  22. 250 ? " RPM READING:   " 
  23. 260 POKE 1610,D 
  24. 270 X=USR(1536) 
  25. 280 A=PEEK(1611):B=PEEK(1612) 
  26. 290 M=(256*B+A)/3600 
  27. 300 R=INT(100/M+0.5) 
  28. 310 SOUND 1,50,10,15 
  29. 320 FOR A=1 TO 100 
  30. 330 POSITION 26,12:? R;" " 
  31. 340 NEXT A:SOUND 1,0,0,0:? :? :? :?  
  32. 370 ? " SPEED IS      "; 
  33. 380 POSITION 20,17 
  34. 390 IF R<285 THEN ? " 
  35. TOO SLOW":GOTO 270 
  36. 400 IF R>290 THEN ? " 
  37. TOO FAST":GOTO 270 
  38. 410 IF R=288 THEN ? "PERFECT ":GOTO 270 
  39. 420 ? "O.K.    ":GOTO 270 
  40. 430 DATA 104,169,1,141,10,3,169,0 
  41. 440 DATA 141,11,3,141,4,3,169,5 
  42. 450 DATA 141,5,3,173,74,6,141,1 
  43. 460 DATA 3,169,82,141,2,3,169,5 
  44. 470 DATA 141,73,6,32,83,228,206,73 
  45. 480 DATA 6,208,248,169,100,141,73,6 
  46. 490 DATA 169,0,133,19,133,20,32,83 
  47. 500 DATA 228,206,73,6,208,248,165,20 
  48. 510 DATA 164,19,141,75,6,140,76,6,96 
  49.